www.gusucode.com > VC++写的C编译器源代码附设计文档-源码程序 > VC++写的C编译器源代码附设计文档-源码程序/code/C- Compiler/CGrammar.cpp
// C- syntax used for coloring in CCminusView // by 陆晓春 //////////////////////////////////////////////////////////////// // Download by http://www.NewXing.com #include "stdafx.h" #include "cminusView.h" #ifdef _DEBUG #define new DEBUG_NEW #undef THIS_FILE static char THIS_FILE[] = __FILE__; #endif //C- key words static LPTSTR s_apszCKeywordList[] = { _T("auto"), _T("break"), _T("case"), _T("continue"), _T("const"), _T("default"), _T("delete"), _T("do"), _T("else"), _T("enum"), _T("extern"), _T("for"), _T("goto"), _T("if"), _T("register"), _T("return"), _T("sizeof"), _T("static"), _T("struct"), _T("switch"), _T("typedef"), _T("union"), _T("volatile"), _T("while"), NULL }; static LPTSTR s_apszCTypeList[] = { _T("signed"), _T("unsigned"), _T("char"), _T("bool"), _T("short"), _T("int"), _T("long"), _T("float"), _T("double"), _T("void"), NULL }; static BOOL IsCKeyword(LPCTSTR pszChars, int nLength) { char* tmp = strdup( pszChars ); for( unsigned int i=0; i < strlen(tmp); i++ ) tmp[i] = tolower(tmp[i]); for( int L = 0; s_apszCKeywordList[L] != NULL; L++ ) { if( strncmp(s_apszCKeywordList[L], tmp, nLength) == 0 && s_apszCKeywordList[L][nLength] == 0 ) { delete tmp; return TRUE; } } delete tmp; return FALSE; } static BOOL IsCType(LPCTSTR pszChars, int nLength) { char* tmp = strdup( pszChars ); for( unsigned int i=0; i < strlen(tmp); i++ ) tmp[i] = tolower(tmp[i]); for( int L = 0; s_apszCTypeList[L] != NULL; L++ ) { if( strncmp(s_apszCTypeList[L], tmp, nLength) == 0 && s_apszCTypeList[L][nLength] == 0 ) { delete tmp; return TRUE; } } delete tmp; return FALSE; } static BOOL IsCNumber(LPCTSTR pszChars, int nLength) { if( nLength > 2 && pszChars[0] == '0' && pszChars[1] == 'x' ) { for( int I = 2; I < nLength; I++ ) { if (isdigit(pszChars[I]) || (pszChars[I] >= 'A' && pszChars[I] <= 'F') || (pszChars[I] >= 'a' && pszChars[I] <= 'f')) continue; return FALSE; } return TRUE; } if( !isdigit(pszChars[0]) ) return FALSE; for( int I = 1; I < nLength; I++ ) { if( !isdigit(pszChars[I]) && pszChars[I] != '+' && pszChars[I] != '-' && pszChars[I] != '.' && pszChars[I] != 'e' && pszChars[I] != 'E' ) return FALSE; } return TRUE; } #define DEFINE_BLOCK(pos, colorindex) \ ASSERT((pos) >= 0 && (pos) <= nLength);\ if (pBuf != NULL)\ {\ if (nActualItems == 0 || pBuf[nActualItems - 1].m_nCharPos <= (pos)){\ pBuf[nActualItems].m_nCharPos = (pos);\ pBuf[nActualItems].m_nColorIndex = (colorindex);\ nActualItems ++;}\ } #define COOKIE_COMMENT 0x0001 #define COOKIE_PREPROCESSOR 0x0002 #define COOKIE_EXT_COMMENT 0x0004 #define COOKIE_STRING 0x0008 #define COOKIE_CHAR 0x0010 DWORD CCminusView::ParseLine(DWORD dwCookie, int nLineIndex, TEXTBLOCK *pBuf, int &nActualItems) { int nLength = GetLineLength( nLineIndex ); if( nLength <= 0 ) return dwCookie & COOKIE_EXT_COMMENT; LPCTSTR pszChars = GetLineChars(nLineIndex); BOOL bFirstChar = (dwCookie & ~COOKIE_EXT_COMMENT) == 0; BOOL bRedefineBlock = TRUE; BOOL bDecIndex = FALSE; int nIdentBegin = -1; for( int I = 0; ; I++ ) { if( bRedefineBlock ) { int nPos = I; if( bDecIndex ) nPos--; if( dwCookie & (COOKIE_COMMENT | COOKIE_EXT_COMMENT) ) { DEFINE_BLOCK(nPos, COLORINDEX_COMMENT); } else if( dwCookie & (COOKIE_CHAR | COOKIE_STRING) ) { DEFINE_BLOCK(nPos, COLORINDEX_STRING); } else if( dwCookie & COOKIE_PREPROCESSOR ) { DEFINE_BLOCK(nPos, COLORINDEX_PREPROCESSOR); } else { DEFINE_BLOCK(nPos, COLORINDEX_NORMALTEXT); } bRedefineBlock = FALSE; bDecIndex = FALSE; } if( I == nLength ) break; if( dwCookie & COOKIE_COMMENT ) { DEFINE_BLOCK(I, COLORINDEX_COMMENT); dwCookie |= COOKIE_COMMENT; break; } // String constant "....", end if( dwCookie & COOKIE_STRING ) { if( pszChars[I] == '"' && (I == 0 || pszChars[I - 1] != '\\') ) { dwCookie &= ~COOKIE_STRING; bRedefineBlock = TRUE; } continue; } // Char constant '..', end if( dwCookie & COOKIE_CHAR ) { if( pszChars[I] == '\'' && (I == 0 || (I >= 2 && pszChars[I - 1] == '\\' && pszChars[I - 2] == '\\') || pszChars[I - 1] != '\\') ) { dwCookie &= ~COOKIE_CHAR; bRedefineBlock = TRUE; } continue; } // Extended comment /*....*/, end if( dwCookie & COOKIE_EXT_COMMENT ) { if( I > 0 && pszChars[I] == '/' && pszChars[I - 1] == '*' ) { dwCookie &= ~COOKIE_EXT_COMMENT; bRedefineBlock = TRUE; } continue; } // Comment double slash // if( I > 0 && pszChars[I] == '/' && pszChars[I - 1] == '/' ) { DEFINE_BLOCK(I - 1, COLORINDEX_COMMENT); dwCookie |= COOKIE_COMMENT; break; } // Preprocessor directive #.... if( dwCookie & COOKIE_PREPROCESSOR ) { /*if( I > 0 && pszChars[I] == '*' && pszChars[I - 1] == '/') { DEFINE_BLOCK(I - 1, COLORINDEX_COMMENT); dwCookie |= COOKIE_EXT_COMMENT; }*/ if( !isalpha(pszChars[I]) ) { dwCookie &= ~COOKIE_PREPROCESSOR; bRedefineBlock = TRUE; } continue; } // String constant "...." if( pszChars[I] == '"') { DEFINE_BLOCK(I, COLORINDEX_STRING); dwCookie |= COOKIE_STRING; continue; } // Char constant '..' if( pszChars[I] == '\'' ) { DEFINE_BLOCK(I, COLORINDEX_STRING); dwCookie |= COOKIE_CHAR; continue; } // Extended comment /*....*/ if( I > 0 && pszChars[I] == '*' && pszChars[I - 1] == '/' ) { DEFINE_BLOCK(I - 1, COLORINDEX_COMMENT); dwCookie |= COOKIE_EXT_COMMENT; continue; } if( bFirstChar ) { if( pszChars[I] == '#' ) { DEFINE_BLOCK(I, COLORINDEX_PREPROCESSOR); dwCookie |= COOKIE_PREPROCESSOR; continue; } if( !isspace(pszChars[I]) ) bFirstChar = FALSE; } if( pBuf == NULL ) continue; // We don't need to extract keywords, // for faster parsing skip the rest of loop // Operators if( pszChars[I] == '+' || pszChars[I] == '-' || pszChars[I] == '=' || pszChars[I] == '<' || pszChars[I] == '>' || pszChars[I] == '!' || pszChars[I] == '|' || pszChars[I] == '&' || pszChars[I] == '^' ) { DEFINE_BLOCK(I, COLORINDEX_OPERATOR); bRedefineBlock = TRUE; continue; } if( pszChars[I] == '*' || (pszChars[I] == '/' && (I < (nLength - 1) && pszChars[I + 1] != '/' && pszChars[I + 1] != '*')) ) { DEFINE_BLOCK(I, COLORINDEX_OPERATOR); bRedefineBlock = TRUE; continue; } if( isalnum(pszChars[I]) || pszChars[I] == '_' || pszChars[I] == '.' ) { if (nIdentBegin == -1) nIdentBegin = I; } else { if( nIdentBegin >= 0 ) { if( IsCKeyword(pszChars + nIdentBegin, I - nIdentBegin) ) { DEFINE_BLOCK(nIdentBegin, COLORINDEX_KEYWORD); } else if( IsCNumber(pszChars + nIdentBegin, I - nIdentBegin) ) { DEFINE_BLOCK(nIdentBegin, COLORINDEX_NUMBER); } else if( IsCType(pszChars + nIdentBegin, I - nIdentBegin) ) { DEFINE_BLOCK(nIdentBegin, COLORINDEX_TYPE); } bRedefineBlock = TRUE; bDecIndex = TRUE; nIdentBegin = -1; } } } if( nIdentBegin >= 0 ) { if( IsCKeyword(pszChars + nIdentBegin, I - nIdentBegin)) { DEFINE_BLOCK(nIdentBegin, COLORINDEX_KEYWORD); } else if( IsCNumber(pszChars + nIdentBegin, I - nIdentBegin) ) { DEFINE_BLOCK(nIdentBegin, COLORINDEX_NUMBER); } } if( pszChars[nLength - 1] != '\\' ) dwCookie &= COOKIE_EXT_COMMENT; return dwCookie; }